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MODULE SORSENTRY (MAIN Ma ae abd 


ee ! File: SORSPEC.832 Edit: PDG3023 
oa 


Wn 


BEGIN 


5 


VeReeR eRe AREHRRHAKARHAHE HHH EHTE HAR AHAAHAA AAA eKeeeeeeeAeeeteAKeeeree 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


3 ; 

a. 

; 5 1 

3 § 1 

Py 1 oa 
’ 8 1 t 
3 y 1 * 
3 19 19 ! 7 ALL RIGHTS RESERVED. : 
: i \¢ 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
+e 13.1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 146 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O = * 
. 015 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN * 
: 1 B18 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
H \ Bat : = TRANSFERRED. ® 
Py * 
; 20619 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0 0 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 1 4 1 ! ‘* CORPORATION. . 
; te 

3 § $0 : 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 : + 3 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
: (26 0026 1 ie . 
si 80 i : “itn daca iad taal niin iil alten alata nae 
> 29 00 9 1 

: 3g 008) yi 

: 4 0032 1 ! FACILITY: VAX SORT/MERGE 

3 00 1! 

: 4 00 1 ! ABSTRACT: 

3 5 0035 1! 

; te) : This module contains the main entry to the sort/merge utility. 

: 38 aie: ! ENVIRONMENT: VAX/VMS user mode 

; 40 0040 i AUTHOR: Peter D Gilbert, CREATION DATE: 07-Jan-1982 

; 4@ 004¢ i MODIFIED BY: 

: 64 41! T Original 

ait Se boes 7! 103- 18 Change statnanes to SORSK_xxx. PDG 4-Jan-1985 

; $8 Boe$ 1? -01 ore with the worst sever ity we've seen. PDG 14-Jan-1985 

; rt 4 9 : 193- change jeert tate size used'’ to ‘work file allocation’. 

; (49 0049 1: 1 Changed the name of SORSSTAT. PDG 3-Ma ce 1985 

; & $0 1! 103- Reformat statistics. remo ing MBC and MBF. PDG 88-Jul-1983 

; 23 B38) ; Remove ''-11'' from statistics. PDG 10-Nov-198 
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LIBRARY ‘ SYSSLIBRARY: STARLET; 
LIBRARY "SYSSLIBRARY:XPORT’; 


RIF ZDECLARED(ZQUOTE SDESCRIPTOR) ZTHEN UNDECLARE Z%QUOTE SDESCRIPTOR; %F1 


LINKAGE 
JSB_ONE_STAT = JSB (REGISTER=1): NOTUSED(2,3,4,5,6,7,8,9,10,11); 


FORWARD ROUTINE 
CON 


SS3SS33SsS3s 


WN" OOONOUL Ww 


The text can, however, be changed 
the control string still uses the same FAO parameters, and text expands to 
no more than 1024 characters (a restriction of the wey that the text is 

n 


output), and lines are separated by carraige-return/Line-feed pairs. 


D_HAND, ! Handle exception conditions . 

R_ERROR, ! Issue an error diagnostic ; 

SORSENTRY ! Main entry point ; 

5 NIT_STATS, ! Get initial statistics : 
ONE STAT:  JSB_ONE_STAT, ! Get one statistic ; 

634 PRINT_STATS; ! Print sort/merge statistics : 
9 EXTERNAL ROUTINE F 

0 SORSSCOMMAND, ! Parse command Line : 
8053 ORSSOUTPUT ' Qutput text : 
i SORSSORT_MERGE ADDRESSING_MODE (GENERAL), ' Sort the stuff 3 
007 ORSEND_SORT ADDRESSING_MODE (GENERAL), ! Terminate sort/merge 3 
0074 ORSSTAT: ADDRESSING_MODE (GENERAL), ! Get a statistic : 
0075 LIBSFIXUP_FLT: ADDRESSING_MODE (GENERAL), : 
B078 LIBSF IXUP_DEC: ADDRESSING_MODE (GENERAL), : 
Bore LIBSSIGNAL: ADDRESSING_MODE (GENERAL); : 
0079 MACRO : 
0080 BASE_ = 0, 0, 0, 0 2; : 
0081 ; 
o EXTERNAL LITERAL : 
st SORTS_FACILITY; : 
#4 SORS$_SHR_SYSERROR = SHRS_SYSERROR + STSSK_SEVERE + SORTS_FACILITY * 16; : 
0087 FAO string used to output statistics via SYSSPUTMSG. : 
The following text interacts etoaesy with the code in PRINT_STATS. : 

9 (translated) independent of the code, if . 


Note that the use of tab character in the text is avoided, since 
some terminals may not have tab stops at multiples of eight. 


MAC 


RO 
STR_STATS = ZEXPAND ZSTRING( 
ZIF SWITCHES (DEBUG) 
ZTHEN °!/!18* VAX Sort/Merge !AC Statistics’ 
sy Lbs *!/!18* VAX Sort/Merge !+#Statistics’ 2FI, 


*'/Records read:!12UL', “o9 
*!'/Records sorted:!10UL', a8 | 
"!/Records output:!10UL', "ty 
*"!'/Working set exten :16UL", ae | 
"'/Virtua ponery: | | oa 

"!'/Direct 1/0:!14uUL", oe | 


Input record Length: !9UL", 
Internal Lengths 130. 
Output recor Length; !6uL", 
Sort tree si e:!14uUL', 
Number of initial rung: gu". 
Maximum merge order: !9UL', 


ee ie ee ee ee ee ee ee ee ee ee ee ee SY 


SSSLEARAEVLSSSLESRAV SS SVSALAV TS ISVS ARAW-S SSIS ALAS SSSA 


eh a a ee a Ss a 4 a 
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aeeeee 
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*!/Buffered 1/0: j4euy'- i198 Number ef merge pa sses: '6UL", 
"'7p f ! ‘i * Work fit e al oca n: 'BUL", 
s{/elepsed ae Tb te. i}g Elapsed CPu:! if ie 
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SIG_PC = .VECTORCSIGVECCBASE_J, .SIGVECCCHFSL_SIG_ARGSJ-1); 
Repair the operand, based on the opcode 


; : 5 } ¢ ! ROUTINE COND _HAND 

4 § 154 «1 SIGVEC: REF pL oEKt BYTE, ! Signal vector 
$ : 8 ; 5 : RCHVEC: REF BLOCKL,BYTE ' Mechanism vector 
4 = 

: 160 1 $ 1 !44 

s 16) | 8 1! 

: 196 123 | FUNCTIONAL DESCRIPTION: 

: 164 161 1! Condition handler for errors occurring during sort/merge. 
; 19? 8108 : The returned RO is set to the error message. 

: 189 164 1 | FORMAL PARAMETERS: 

: 168 165 1! 

: 19? 3188 1! SIGVEC.ra.r The signal vector 

3 iy 3484 ! MCHVEC.ra.r The mechanism vector 

: 17 0169 1 i IMPLICIT INPUTS: 

ee 0170 1! 

: 174 0177 1! NONE 

> «175 \% 1! 

; ite 173 1 ! IMPLICIT OUTPUTS: 

SF 17%4 1! 

3 178 ‘te af NONE 

-onr $178 1! 

; 180 17 1 ! ROUTINE VALUE: 

; 181 0178 1! 

$ I ate 1! Status code. 

s 18 190 1! 

; «6184 0181 1 ! SIDE EFFECTS: 

3; «6185 BI 1! 

: 186 0183 1! NONE 

: «4187 0184 1! 

: «188 0185 1 !-- 

3 18? B18 BEGIN 

; 3) 0188 If we are unwinding, just return 

: 198 Bios if -SIGVECCCHFSL_SIG_NAME] EQL SS$_UNWIND THEN RETURN SS$_RESIGNAL; 
: 195 19 

3 138 0188 : If SS$_ROPRAND, then try using LIBSFIXUP_FLT/DEC 

: 198 195 IF .SIGVECCCHFSL_SIG_NAME) EQL SS$_ROPRAND 

: 199 138 THEN 

; 200 19 BEGIN 

; 201 198 BUILTIN 

; 4 199 AP, 

; 20 0 CALLG; 

; Be 1 LOCAL 

3 5 g S$1G_PC: REF VECTORC,BYTE), ' PC of bad instruction 
3 54 STATUS; 

: $08 : 

: $19 

: 2ii 0 


7 
SORSENTRY hese =1984 00:23:1 AX-11 Bliss-32 V4.0-74 Pa 6 
500 500 12-88-1382 90:48:18 eaRTs2 SRE SORENTRY 03551 9 a) 
STATUS = (SELECTONE .SIG_PCCO] OF 
OP$_CVTTP, OP$_CVTSP]: CALLG(.AP, LIBSFIXU ; 
OP$“CMPF, OP$_CMPD, OP$_ESCD): ALL LAP, LIBSFIXUPZFLT): 
OTHERWISE]: ; 
IF _.STATUS EQL SS$_NORMAL 
THEN 
BEGIN 


i we managed to wert the problem. 
However, we should let the user know that an error occured. 


EXTERNAL LITERAL SOR$_ROPRAND; 
LIBSSIGNAL (SOR$_ROPRAND); 
A ae SS$_NORMAL ; 


END; 


ee wee ololololelololololololo) 


WAA. NA. AAAI AIP PIPPONPONPPUNINN 2 OO On ee ee "OO 


Set the returned RO value 

MCHVECCCHFSL_MCH_SAVROJ = .SIGVECCCHFSL_SIG_NAME); 

} Hang onto the worst error we've seen 

BEGIN 

paws, CY] sev = UPLIT BYTE(2,0,3,1,4,5,6,7): VECTORC BYTE); 

SEV = .CVT SEVC .BLOCKCSIGVECCCHFSL_SIG_NAME],STSS$V_SEVERITY; ,BYTEJJ; 
.SEV GTRU .SOR_SEV 

HEN 

» SEV; 

SIGVECCCHFSL_SIG_NAME] OR STSSM_INHIB_MSG; 

END; 


! Resignal the error. If the severity of the error is Success, Info, 
Warning, or Error, execution will continue. 


RETURN SS$_RESIGNAL; 
END; 


PUP ES BB BB BE EAN NWA. AAI AIP POPOPIPIPOPDY Ss SS 
NOU EWN OO ONAUES WN O OODNOAU EWN SO OONOU LWW —ODOONOUL wT 
FUN CO OONO UE WN 0 ODNOU FWD CO ODNAU EWR (OO ONOULWIOD 
= POPIPINPINPININIWIN EE & BANNAN PONPONPOTUWI EE BB BEEP EWI EPP 
Sel 
" 


Be Se Se Oe Ge Fe Ge Se Se Se Se Se Ge Se Ge BH Se SHS Be BH Se BH Se SHH SHS Se Se Se Hee SESH SESS HOH Ss oe oe SHS ee 
oe oe ww lololololelololololololololo! 
POPIPOPIPONINYPINPINYINIPYNININININYPPoNyfnongpofnorny 


DUP & BBE BEEPS EW 


POPPPSPIPOPININININYNINININI NOP Nofonofonofny 


~-TITLE SORSENTRY 
IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE,2 


‘ee EE Bee 


C “WORD 4, 1031 


co 2, toc 


do 7 
SORSENTRY 16-Sep-1984 00:23:1 AX-11 Bliss-32 V4.0-74 
voe-000 13-08-1388 00:95:18 SORT32.SRC SORENT 0068551 get (4) 
' 10 .ADDRESS CPUTIM , 
$00 § 14 -LONG 0 : 
04 4 18 ;WORD 4, 1035 : 
00 0° 1 ADDRESS biRIO : 
«LONG 0 : 
040A 4 4 “WORD 4 : 
900 0° a -ADDRESS baaerers : 
5 -LONG 0O : 
0404 4 “WORD 4 1028 : 
999 9° é “ADDRESS FREP VA : 
04 p 4 «WORD 4, 1046 : 
00000000 99000 o bee “ADDRESS ae : 
AA . . Y ry . . 4, o 6, Py 
07 06 05 04 01 03 00 0 Soac P.AAB: .BYTE 3 5 7 : 
PSECT SOWNS,NOEXE,2 
00000 CONTEXT:.BLKB 4 
99004 STATS: .BLKB 32 
0024 BUFIO: <BLKB 4 
900 8 CPUTIM: .BLKB 8 
0030 DIRIO: .BLKB 4 
00034 PAGEFLTS: 
.BLKB 4 
00038 FREPOVA:.BLKB 4 
0003C WSEXTENT: 
.BLKB 4 
00040 SOR_SEV:.BLKB 4 
00044 SORTSTS:.BLKB 4 
ITMLST= P. AAA 
CVT_SEV= AAB 
EXTRN SOR $$COMMAND SORSSOUTPUT 
EXTRN SORSSORT_MERGE SORSE SORT 


0000 00000 COND_HAND: 
WORD 


51 
00000920 8=8F 4 


AC 00 2 MOVL 
Al Di $006 MPL 
76 13 0000 EQL 
00000454 8F 04 Al 01 0001 CMPL 
4E is 001 BNEQ 
50 61 DO QOOTA MOVL 
51 FC A140 s 001 MOVL 
09 6 } CMPB 
ye BEQL 
26 61 33 CMPB 
09 1 A BNEQ 
000000006 00 6C FA 1$: CALLG 
1D 14 BRB 
51 8F 61 91 00 2$: CMPB 


SORSSTAT, rst ING L 
LIBSFIXUP_DEC, LIBS TENA 
SORTS_FACILITY, SORS_ ROPRAND 


SCODES,NOWRT,2 


RO 
CROJ, SIG_PC 
(), #9 


P), LIBSFIXUP_DEC 
I1G_PC), #81 


0212 


7 

SORSENTRY 1b-5¢ -1984 23:1 AX-11 Bliss-32 V4.0-74 Pa 
y02000 1 ~30P 71382 99:93:18 EgoRT 2. SRCJSORENTRY.B32; 1 ” 

oc 1 9 BEQL ©=_-3$ F 

71 ~—s«BF ef 35 CAPE ($16_PC), #113 : 

FD «SF e} 9 i CHPE jsi6.P0), #253 : 

000000006 00 FA 00047 3S: CALLG (AP), « 1BSFIXUP_FLT F 

11 0004 BRB $ ; 

D4 4$: CLRL =‘ STATUS : 

01 24 »} 5$: SNES oe #1 : 

000000006 8F DD PUSHL #SOR$_ROPRAND : 

000000006 0 FB 2 CALLS ai, L BSSIGNAL ; 

04 0967 RET ‘ : 

39 Br OME bh Ooeee owt Srevege RP 

0c a0 4 Al 00 0070 MOVL  4(R1), 12(RO) ; 

50 04 al 9 00 FF 007 EXTZ2V #0, #3, 4(R1), RO : 

0 0000'CF40 9A 00078 MOVZBL CVf_SEVCROJ, SEV ; 

0000' CF 50 D1 00081 CMPL SEV SOR_SEV : 

000" AS ae Se Te BABY BN ae ey : 

0000' CF 04 Al 10000000 &F c9 0008D BISL3 Pooks asasen 4(R1), SOR_STS : 

50 0918 8F 3¢ 00098 8$ MOV ZWL #2328, RO : 


; Routine Size: 158 bytes, Routine Base: $CODE$ + 0000 


. 7 
vos-000 VerSepm rope 19:40:48 — ESdard2°SneSsonentay 659; 1 
; 259 ROUTINE SOR_ERROR(ERR) = 


1+ 


3 : 1 

; $ 1 

3 1 

; 26 1! 

: o7 : ! FUNCTIONAL DESCRIPTION: 

; 65 ei This routine signals an error diagnostic. 
; 6 e§ | FORMAL PARAMETERS: 

3 $3 65 : Parameters passed to LIBS$SIGNAL. 

3 4 0 ef | IMPLICIT INPUTS: 

: 37 69 1 i NONE 

3 74 01! 

: f? 5 4 : IMPLICIT OUTPUTS: 

: 27 0 8 1} NONE 

3 78 0274 1! 

; Oe 8 76 ! ROUTINE VALUE: 

; 81 0277 1! System status (first parameter of si Lled status), with th 
: 282 0278 1 | INHIB. MSG bit set. - op ect tye Sateen tartare 
; 284 0 si ; SIDE EFFECTS: 

3 $39 8 5 : The image may be exitted due to the error. 
: 288 0284 1 i-- 

; 289 0285 BEGIN 

: sf 0 MY] vonenne 

: $3 89 rocarntts: 

> 29% 0290 ; 

3 344 0291 CALLG(.AP, LIBSSIGNAL); 

3 96 8536 RETURN .ERR OR STSSM_INHIB_MSG; 

; 297 2935~—(«1 END; 


0000 00000 SOR_ERROR: 


; 5 thi 
000000006 00 CEA 90002 CALLG CAP) st $S1GNAL 
50 04 AC 10000000 8F c9 90009 BISL #268435456, ERR, RO 


; Routine Size: 19 bytes, Routine Base: SCODE$ + O09E 


7 
NS) NTRY 18-5¢ 1984 00:23:1 AX-11 Bliss-32 V4.0-74 Pa 10 
yo02800 1 30071 $8¢ 99:75:48 SORT32.SRCJSORENTRY.832;1 a (6) 
; GLOBAL ROUTINE SORSENTRY = 
og 
FUNCTIONAL DESCRIPTION: 


This is the main entry point to the SORT/MERGE utilities. 
This routine does the following: 


o0o0ono 
NOUS 


oO 
“ 


Parse the command Line 

Process the specification file. 

Use the ca Labte sort/merge routines to finish processing. 
Print statistics, if requested. 


Release allocated resources. 
FORMAL PARAMETERS: 


SRVSAFENLSSS 


3 1 

3 1 

; 1 

3 1! 

; 1! 

3 1! 

3 1! 

: 306 1! 

; 07 : . 

; 308 1! 

3; 207 Q 7% 

; 10 1! 

Bp 

: 31 1! 

3 14 0 1! 

3 15 10 1! 

A ee |) hl 

: 18 : 1§ { IMPLICIT INPUTS: 

i 320 Os15 1 | NONE 

: : 0317 | IMPLICIT OUTPUTS: 

: 324 0319 1: NONE 

; 5 bass 1! 

; $ bs } ROUTINE VALUE: 

: 8 1 / System status code. 

3 +] 5 4 1! , 

; : 325 ! SIDE EFFECTS: 

ho 4:9). 

; 0329 1 i-- 

3 5 0330 BEGIN 

: B3 1 OCAL 

; 0 § STATISTICS, ' Flag for whether statistics requested 
; = 03 SORT FLAG, ' Flag indicating sort (not merge) 
3 9 ; 4 3 ' Status 
: $40 

: 34 

; ‘8 5 Initialize the severity and message to success 
: 345 0 SOR_SEV = 0; 

; 46 41 SOR-STS = SS$_NORMAL; 

: : ‘8 Establish a condition handler 
; 30 5 (BUILTIN FP; .FP = COND_HAND); 
; 26 a9 : Clear the context longword 

: 354 rk CONTEXT = 0; 

3: 355 50 


7 
S NTRY 16-Sep-1984 00:23:1 AX-11 Bliss-32 V4.0-74 
raved 1 ~30P 71382 90:73:08 YeoRt 2.SRC SORENTRY 08951 
: Initialize the statistics 
STATUS = INIT_STATS(); 
IF NOT .STATUS THEN RETURN .STATUS; 
Call SORSSCOMMAND to process the command Line, call SPEC_FILE, 
call PASS_FILES, and call INIT_SORT or INIT_MERGE. 
The context parameter is not referenced ~ A ancariatres it is 


PEASANT 


MEUN $0 OONAUSWN (OO ODBNOAUE WN OUOONOULS WN 


! 
; just passed to the callable interface routines. 
8 i SORSSCOMMAND sets or clears SORT_FLAG depending on whether 
H ; we were invoked for a sort or a merge, respectively. 
71 i SORSSCOMMAND sets or clears STATISTICS depending on whether 
if | Statistics were requested for the sort/merge. 
2 STATUS = SORSSCOMMAND( 
2 SORT FLAG 
? STATISTICS 
78 (BUILTIN AP; .AP)); 
4} IF NOT .STATUS THEN RETURN .STATUS; 
81 
ge IF .SORT_FLAG 
8 THE 


BEGIN 
Call SORT_MERGE 


STATUS = SORSSORT_MERGE (CONTEXT); 
IF NOT .STATUS THEN RETURN .STATUS; 


COCOOOCOOOOO NI NINN 


AREVLSSSLESRANLSSELEAE 


Be Se Ge Oe Se Ge Ge Se Ge Se Be Se Se Se Se Ge Se Gs Ge Se Be Ge Se Ge Fe Se Ge Ge He Se Ge Ge Se Ge Ge Ge Se Ge Se Se Se Fe Se Se SH Se Ge BH Se Se OO SH Ss Se Se Se ee 


4 Put out the statistics, if requested. 
3 0 IF .STATISTICS 
91 THEN 
338 BEGIN 
9 STATUS = PRINT_STATS(); 
94 IF NOT .STATUS THEN RETURN .STATUS; 
4 95 END; 
4 38 
4 9 
Z 4 : Call END_SORT to clean up after ourselves 
4 4 STATUS = SORSEND_SORT(CONTEXT); 
406 401 IF NOT .STATUS TREN RETURN .STATUS; 
40 ; 
408 
409 rtf) ' Return the worst error we've seen 
410 405 ! 
411 406 RETURN .SOR_STS; 
412 4 END; 


: | 
1b-sep-1 AX-11_ Bliss-32 V4.0-74 Pp 1 SOR 
1e-8ep- 1986 93:40:48 SORT32.SRCISORENTRY B32; 1 st B V04 

0004 ENTRY SORSENTRY Ss R2 : 029% ; 
bee ECE LA ye pales 
40 A? van tiat CLRL. —«-SOR_S + 0340 3 
46 = A2 0 20 000D MOVL He “3En STS : 31 ; 
6D FF3A CF 3 1 NOVAB Np HARD (FP) + 0345 F 
0000v CF 6 F 8 CALLS CONT init STATS : 303 
D E 1 BLBC statu , 33 : 0354 
C DD PUSHL + 0373 
04 AE OF 00 PUSHAB STATISTICS > 0369 
oC 8S Bb bo0s8 um Ae 
00006 CF 64 FB 00 A CALLS #4, SORSSCOMMAND : 
28 0 €9 0002F BLBC STATUS, 3$ + 0374 
C 04 AE E9 00032 BLBC SORT_FLAG, 1$ + 0377 
52 DD 000 PUSHL Re : 0383 
000000006 00 01 FB 00 CALLS SORSSORT _MERGE : 
OB ae £5 doce 18 Stee SraTistics : 0356 
0000v CF 5 FB it ( CALLS #0, PRINT STA This ; 039 
~ SEP Spode 28 PUSHL syns. “ss + 0236 
000000006 00 01 FB Soode CALLS prSQRSENP- SORT ; 
04 30 9 0096 BLBC STAT : 9401 
0 44 A2 00 0005 MOVL  SOR_ Te RO + 0406 
04 0005D 3$: RET : 0407 


; Routine Size: 94 bytes, Routine Base: S$CODES + 0081 


SS 


sonsenTRy ybeseontgee 00:78:12 yanet4 oLiegc32 ve.0-743 | Page 13 
ROUTINE INIT_STATS = 
i“ 


3 FUNCTIONAL DESCRIPTION: 


—t ad td wd dD 


VISA $9 OOBNOU EWN “OOOO 


This routine initializes sort/merge statistics. 
; { FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

{ROUTINE VALUE: 

System status value 

{ SIDE EFFECTS: 


BREE REE E EERE EEE PREP EE 


At TATUS; 
Get the statistics 


status = SGET IPI CITMLST=ITALST) 
IF NOT .STATUS THEN RETU R ERROR SORS SHR_SYSERROR, 0, .STATUS); 
STATUS = SCETTINCTIMADRESTATSESTAT TART 

IF NOT .STATUS THEN RETURN SOR *ERRORCSORS, guR_ SYSERROR, 0, .STATUS); 


STATSCSTAT BUF 10] = .BUFIO; 

STATS STAT-C IM) = as ceurin; 
STATSESTA Stith = 

STATS STAT PAGER TE] 4 wy: FLTS; 
STATSLSTAT-FREPOVA] = .FREPOVA: 


RETURN SS$_NORMAL; 
END; 


Be Se Se Ge Se Se Ge Fe Se Se Ge Se Se Se Fe Ge Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Oe Be Se Oe Se Se ee ee 
ae 
vd es 
@ 
SAPIPINIMIPINIPINIPININININIIIIIN INIA a i dd dd 
@ 
m 
Me 
pe 
et 


RRRRRRKRRLLLRLLLLRLELRRKKRRLKKRRRRREK 


PUPA BB EEE EEE 
MEW —OOCONOUS WN —O0O@ 


-EXTRN SYSSGETJPI, SYSSGETTIM 
000C 00000 INIT_STATS: 
Save te ; 0408 


53 0000' CF 9 0 hovaB STATS* : 
5 $609 CLRQ. 0 =(SP) > 0443 


K = 
SORSENTRY 1 4 AX-1 -32 v4.0-74 Pa 4 S 
vive tnd ae tee ts rik HT See MM PUD Pit Pt a ve dS vO4 
7E D4 CLRL ss = (SP) ; : 
0000" CF oF PUSHAB ITMLST : ; 
E : F CLRQ 0 =( SP) : ; 
000000006 5 Pe bOTs Chey a). SySsceTuPI : : 
33 08 1A MOVL RO, STATUS : ; 
| tS A ig] |i 
000000006 $3 1 of CALLS ae Sra" : : 
; E C statu F + 0446 ; 
i DD p F 1$ PUSHL STATUS ; : 
00000000* BF DD 99 3 PUSHL  #<<SORTS$_FACILITYA16>+4532> F : 
FFS1 CF 3 FB 9 CALLS #3, SOR_ERROR ; : 
FS oA 0 0 16 AB FO 09 F 2% INSY BUFO, #2, #32, STATS#! + 0448 
9 Ag $8 0 18 AS FO 00046 INSV  (CPUTIM, #2 #38, STATS+5 + 0449 
08 A 20 AS 7D 00040 mova DIRIO. TATS#2 + 0450 
10 A 8 Ad 00 9009¢ MOVL §§ FREPOVA, STATS+28 + 0452 
50 01 DO 0005 MOVL #1, RO + 0454 
04 0005A RET + 0455 


; Routine Size: 91 bytes, Routine Base: S$CODES + 010F 


FRLRRLLRLRLLLLERLEKS 


COCO 0909098 NI NINN INNO OO 


Se 
Ooo MEWS OONOULSWN—OOe 


MPwn— 
PIII III st st dd td et tt 


RRRRRRLRLEKLLREKLR 


ROUTINE ONESTAT 


CODE 
}: JSB_ONE_STAT = 


lee 
i 


FUNCTIONAL DESCRIPTION: 
i FORMAL PARAMETERS: 


! 

4 

! 

' 

1 

i 

{ IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
; NONE 
ROUTINE VALUE: 

; 

1 
' 
' 
1 
' 
! 


i SIDE EFFECTS: 
i NONE 


Value of the statistic 


7 
1B-Se-1964 00:28:12 YAK=11 BLieg-52_v4.0-7 


This routine gets one sort/merge statistic. 


CODE.rl.v Code of statistic to get 


RESULT = 0; 
STATUS = SORSSTAT(CODE, RESULT, CONTEXT); 
IF NOT .STATUS THEN SOR_ERROR(.STATUS); 


RETURN .RESULT; 
END; 


0000° 
4 


000000006 9 


DD 00000 ONE_STAT: 
USHL 


HL RI 

4 9 CLRL ——- RESULT 

F PUSHAB CONTEXT 
9F 8 PUSHAB RESULT 
OF 08 PUSHAB CODE 

F CALLS @# SORSSTAT 
E 1 BLBS STATUS, 1$ 
DD 0001 PUSHL STATUS 


SS 


sonsgare IESEOrIOBE Q0:28:12 YMGTL Pliage RZ vest-74g | Page * a 
FFI5 i HE of HS 18: ig fe Sut SOR. ERROR : 97 


; Routine Size: 38 bytes, Routine Base: S$CODES + 016A 


| Rea Sekine: 


7 
04-600" 1er$ep=198¢ 18:40:48 ESOaTSo°SReSsoneNtay 8391 a 


; 507 499 GLOBAL ROUTINE PRINT_STATS = : 
: $8 1 !46 : 
3 10 1! : 
; 1 i FUNCTIONAL DESCRIPTION: : 
3 1§ 5 : This routine prints sort/merge statistics. : 
: 15 0 | FORMAL PARAMETERS: ; 
: 317 305 ; NONE 3 
: 218 a1 1 | IMPLICIT INPUTS: : 
; 3 0 31g 13 : 
; § : az 1 ‘tte : 
: 5 515 1 1 IMPLICIT OUTPUTS: : 
; 526 218 1! 3 
ab o4 \8 ae : 
. & § 0519 1 ' ROUTINE VALUE: : 
; 528 0520 1! 3 
; 529 0521 1! System status value . 
: 530 05 : ii ; 
; 331 05 ; i SIDE EFFECTS: 2 
: 238 0525 1: NONE : 
: 534 05 6 1i ; 
. 25 5 1 !e- 3 
:; 536 528 BEGIN 3 
: 537 L 0529 XIF NOT XDECLARED(COM_K_BPERPAGE) : 
; 538 0530 XTHEN LITERAL COM“K"BPERPAGE = 512; X%F1 ; 
: 539 0531 BUILTIN : 
: 540 05 : EMUL; 

; 541 5 CAL 

; 348 534 FINIS: VECTORE2]. 

: 54 535 CTRSTR: VECTOR(2), 

: 544 5 STATUS; 

: 545 05 CRO 

: 346 4 05 8 $_(x) = 

: 54 m 05 (EXTERNAL LITERAL XNAME('SORSK_',X): UNSIGNED(5); 

; 248 340 ONE_STAT(ZNAME('SORSK_',X))) 23 

; $31 246 Get the statistics 

; 38 544 STATUS = SGETUPI(ITMLST=ITMLST); 

: 55 545 IF NOT .STATUS THEN RETURN . STATUS; 

: 554 246 STATUS = S$SGETTIM(TIMADR=F INISLOJ); 

: 555 54 IF NOT .STATUS THEN RETURN STATUS; 

: 328 228 

; 38 339 Do a quadword subtract to compute the elapsed time. 

: 66 336 BEGIN 

> 561 55 BIND 

: 6¢ 554 = STATSCSTAT_START): VECTORE 2}; 

: 56 555 IF .FINISCO) LSSU TTCO) THEN FINISC1) = .FINISC1) = 1; 


seria” 


ODONAULSWN -OOONOUS wry 


PDD DP PIII SV IVI SIVSIVSTVSVSTSTSV SVS 
UPwn— 


an 


Wn 


6 


72 «(OF 
69 74 


8 
i 


21 4C 


OGOQCOCOOCOSOOOGOOCOCOCOOCOCOO OOOO OOOO OOOO OOOOOOO 


Ah Ab Ab Ab Ab Ab Ab Ad ib hb db db db db Ab Ab Ab dh Ah hh bh hh db Ah Ah ah Ab db dh dh dh a 


5 
% 


F 
5 


33 


VOW NNOVINS 


— = NF O— nv — 


1 
1 


y 
TIMCO] = .CPUTIMCO] = ,STATSCSTAT CPUTIMI; 
L(CPUTIMCOJ, TREF (100000). ZREF (OY, CPUTIMCOI); 


! Format and output the statistics 


pa19Be 19:40:48 


anit Bliss-32 viay oes 
SORT32.SRCJSORENTRY.B32;1 


qpeute the elapsed CPU time, and convert it from 10-millisecond units to 
oTpangRecond units (the standard VMS date/time format) by multiplying 


! Memory used 


! 

! 

BTRSTREG? = XCHARCOUNT(STR_STATS); 

CTRSTRL1J = UPLIT BYTE(STR_ STATS); 

STATUS = SORSSOUTPUT(CTRSTR, 
S_ (IDENT) ! Address of ASCIC ident string 
S~(REC_INP), i Records input 
S_(LRL_LINP), ' Record length 
S_(REC_SOR), ! Records sorted 
S_(LRL_INT), ! Internal record length 
S_(REC_OUT), ' Records output 
S_(LRL_OUT), ' Output record Length 
.QSEXTENT, ' Working=set 
7~ (NODES? ' Nodes in tree 
(,FREPOVA = .STATSCSTAT_FREPOVA])/COM_K_BPERPAGE, 
S_ (INI RUNS) ' Number of runs 
.BIRIO™= .STATSCSTAT_DIRIO], | Direct 1/0 
S_(MRG_ORDER) ! Merge order 
-BUFIO~- .STATSCSTAT_BUFIO], | Buffered 1/0 
S_(MRG_PASSES) ! Merge passes 
-PAGEFCTS = .STATSCSTAT_PAGEFLTS), ' Page faults 
S_(WRK_ALQ), ! Work file allocation 
FINISLO} ' Wall time 
CPUTIN 04, i CPU time 

3 ! Dummy 


IF NOT .STATUS THEN RETURN 
RETURN SS$_NORMAL; 


6 2A 38 3 21 ta } 0054 P.AAC aacti 
Sth ae 
SOELLEES ee 
BRRSERR ERE 


SOR_ERROR(SOR$_SHR_SYSERROR, 0, .STATUS); 


SPLITS,NOWRT ,NOEXE ,2 
\!/!18® VAX Sort/Merge !+Statistics!/!/Re\ 


\cords read:!12UL!10* Input record length\ 
\:!9UL!/Records sorted:!10UL!10* Internal\ 


\ Length: !13UL!/Records output:!10UL!10* \ 


Page 18 
. (9) 


8 
SORSENTRY 16- S$ep-1984 00:23:1 AX-1 =3 -74 ee 
v0e~00 ee aets rae EA Oe Phe hg eee Page 4} 

3A 74 75 70 74 75 6F 3 64 72 6F 5 0B ; 
0 64 72 F a eh | : $5 $ ii i ‘h ASCII \O dl h: !8UL! 
$f eo % fe $f ec : A 73 é ¢ 103 . utput record length: !8UL!/Working set e\ ; 
0 2a 30 31 & i 3a % H : :!6UL! :!14UL! : 
pena $4 3 é3 é ie ze 29 i ‘ ; 195 ASCII \xtent:!6UL!10* Sort tree size:!14UL!/Vir\ 
e 34 } i 3 3 gf 2 23 zh 3 gt H i? fe 133 «ASCII \tual memory:!10UL!10* Number of initial \ : 
0 6C 61 4 9 6 16 : 
3 te , rf: f 3 ji 3 e! ‘ gf ‘5 i a eASCII \runs:!6UL!/Direct 1/0:!14UL!10* Maximum \ : 
6D 6D 69 61 4D 20 2A 0018A : 
i? 3 f4 3A ie é 3 fe of 20 é3 <3 ge i 43 ae «ASCII \merge order:!9UL!/Buffered I/0:!12UL!10*\ ; 
A 3 ; 2 ac 55 (3 i 1 3A 00182 : 
67 72 65 6D 20 66 6F 6 75 4 1 A :!6UL! ; 
ge $2 88 go 21 : 73 e§ § $¢ e! 73 26 : a SCII \ Number of merge passes: !6UL!/Page fault\ 
3 4 7 29 en be zt ¢ 35 53 3} és 34 73 piee eASCII \s:!13UL!10* Work file allocation: !8UL!/E\ ; 
45 2F 21 4C 55 38 21 3A 6E 6F 00202 : 
3 Hy 20 7 $3 of o if $8 zh $3 73 f0 7! gf 0090¢ eASCII \lapsed time: !14%T!7* Elapsed CPU:!6* !'1\ ; 
A BRS BE sn jon : 


STATS+#+12 
-EXTRN SORSK_IDENT, pSORsk REC_INP 
-EXTRN SORSK_LRL_INP, SORSK_REC_SOR 


-EXTRN SORSK-LRL-0 OUT, SORSK-NODES 
-EXTRN SORSK~INI-RUNS SORSR _MRG_ORDER 
-EXTRN SORSK—MRG_ PASSES 

-EXTRN SOR$K~WRK~ALQ 

.PSECT SCODES,NOWRT,2 

.ENTRY PRINT_STATS, Save R2,R3,R4 


yA 
MOV cPUTIN R3 


o 
o 


Ooms "OMS "SO VNOOT NOOO 
FOOD OOD LO BRLONMMMO 


0499 


ww 

mins 
So 
So 
So 
o 


0544 
0000' 


000000006 33 


So 
fo] 


000000006 98 


50 


WV PB VMN VINO SNOOP 
MRMVIO— MroOsNMmM mMmmMmonn 


ee RS aonwomnsenve 
~5 
c 
oow=< 
x 
a 


18: MOVL 
R 


dD 8 
SORSENTRY 16-Sep-1984 00:23:1 AX-11 Bliss-32 V4.0-74 Pa so 
vO4=000 12-80-} 38 90:93:18 SORT32.SRCJSORENTRY.B 3.1 = (38 
EB AS 08 AE D1 00038 2%: CMPL NIS, T : 0555 ; 
08 1 i BGEGU a : . ; 
0¢ AE D 4 FINIS+4 : ; 
08 AE eB As CC 45 3$ SUBL2 TT, FINIS : 556 ; 
sa EC as ¢ 4A SUBL2 =: T#4, FINI S*4 : 055 ; 
50 E1 AB 2 9 3 4F EXTV, "2, “ : STATS+5, RO + 0565 ; 
63 00 000186A0 HF : A 33 MUL cPuTIN #100000, #0, CPUTIM + 0566 ; 
6E 01 F 3C 061 MOVZ2WL #483, CTRS + 0571 ; 
04 AE 000" cr E 00066 OVAB P.AAC, CTRSTR+4 : 378 ; 
: D4 0006C CLRL = (SP) : 057 ; 
53 DD 6 PUSHL R : 292 : 
10 ar F PUSHAB FINIS + 059 : 
51 006 9A 0 7 MOVZBL S*SORSK_WRK_ALQ, R1 + 0590 ; 
64 16 076 JSB ONE_STAT : ; 
9 Dp 007 PUSHL RO : : 
7E oc AB FO OA 6 O7A SUBL3 STATS+24, PAGEFLTS, -(SP) + 0589 : 
5} 006 9A 0080 MOVZBL S*SORSK_MRG_PASSES. R1 + 0588 : 
64 16 008 JSB ONE_STAT : ; 
DD 00085 PUSHL R : ; 
50 DD «A 20 0 EE 0087 XTV. #2, #32, STATS+1, RO + 0587 ; 
7E FC OAS if § 008D SUBL3 RR BUF 0, =(SP) : : 
5} 006 9A 0092 MOVZBL S*“SORSK_MRG_ORDER, R1 + 0586 ; 
64 16 0009 JSB ONE_STAT : : 
30 Dp 0097 PUSH : ; 
7E 08 a3 FO A3 C3 00099 SUBL3 STATS+20, DIRIO, -(SP) + 0585 : 
5) 006 9A 0009F MOVZBL S*SORSK_INI_RUNS, R1 + 0584 : 
64 16 000A2 JSB ONE_STAT : : 
5 Dp OOA4 PUSH : ; 
50 10 a3 FB AS C3 000A6 UBL3 STATS+28, FREPOVA, RO : 0583 : 
7E 50 00000200 8F C7? OOOAC DIVL3 #512, RO. -(SP) : ; 
51 006 9A 000B4 MOVZBL $SORSK_NODES, R1 : 0582 : 
64 16 00087 JSB ONE_STAT : ; 
30 DD 00089 PUSHL : ; 
16 A3 DD 00088 PUSHL  WSEXTENT : 0581 ; 
51 006 9A O00BE MOVZBL S*SOR$K_LRL_OUT, R1 + 0580 ; 
64 16 0c] JSB ONE_STAT : ; 
50 0D C3 PUSHL : : 
51 006 9A 000¢ MOVZBL S*SORSK_REC_OUT, R1 : 0579 : 
64 16 000C8 JSB ONE_STAT : : 
0 DD OOCA PUSHL : ; 
51 006 9a 000CC MOVZBL S*SORSK_LRL_INT, R1 : 0578 : 
64 16 OOOCF JSB ONE_STAT : : 
30 po D1 PUSHL : : 
51 G 9A 00003 MOVZBL S*SORSK_REC_SOR, R1 : 0577 : 
64 16 06 JSB ONE_STAT : : 
0 pp D PUSHL : : 
51 006 9A OO0DA MOVZBL S*SORSK_LRL_INP, R1 : 0576 ; 
4 16 000DD JSB ONE_STAT : : 
0 po DF PUSHL ; ; 
51 G 9A O00E1 MOVZBL S*SORSK_REC_INP, R1 : 0575 ; 
4 16 OO0E4 JSB ONE _STAT : ; 
0 pp EG PUSHL R : ; 
51 G 9A ODE MOVZBL S*SORSK_IDENT, R1 > 0574 : 
64 16 QOOEB JSB ONE_STAT : : 
0 po ED PUSHL RO : : 
50 AE 9F OOOEF PUSHAB CTRSTR > 0573 : 


SORSENTRY 
04-000 


; Routine Size: 273 by 
606 0598 
607 599 1 
608 600 0 

Name 
SOWNS 
SPLITS 
SCODES 
File 
5S$DUA SYSL 
HE Egy st ie; 


00006 gf 08 
) 
i 7 
dD 
00000000* F D 
FF34 C4 85 FB 
04 
50 01 00 
4 
tes, Routine Base: SCODE$S + 0190 
END 
ELUDOM 
PSECT SUMMARY 
Bytes 
NOVEC, WRT, 
56 NOVEC, *NOWRT, 
673 NOVEC,NOWRT, RD, 
Library Statistics 
wone---- Symbols 
Total Loaded 
STARLET L3ee1 9776 27 
XPORT.L32;1 590 20 


COMMAND QUALIFIERS 


Sep-1984 
f-sep-19 


Attributes 


RD ,NOEXE,NOSHR, 
RD ,NOEXE,NOSHR, 


EXE,NOSHR, 


Percent 


5 


AX-11 Bliss-32 V4.0-74 
Rt 99: 19; 1g SORT32.SRC SORENT Y.B a0 685.1 
CALLS ’ 1, SORSSOUTPUT 
MOVL “STA 
LBS sTATU us. 4 
PUSHL STATUS 
CLAL 
PUSHL  #<<SORTS. FACILITYa16>+4532> 
CALLS #3, SOR_ERROR 
RET 
MOVL , RO 
RET 


LCL, REL, 
LCL, REL, 
LCL, R 


Pages Processing 
Mapped Time 

38] 00:01.0 

252 00:00.6 


ree 


. 
° 
. 
. 
* 
’ 
° 
e 
’ 
° 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:SORENTRY/OBJ=OBJ$:SORENTRY MSRC$:SORENTRY/UPDATE=(ENHS: SORENTRY) 


Zizes 673 og 
un Time 

pak Fenet 
Lines/CPU Min: 
Lexemes/CPU-Min: 2295 


8? 


4 + 639 data bytes 


: 0595 


9596 


F 8 
vedio" 16-Sep-1984 00:23:12 VAX-11 Bliss-32 V4.0-742 Page 22 


ss 


Used: 127 pages 
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AL EQUIPMENT CORPORATION > 
DENTIAL .AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


036 


